﻿Public Class TMyAttributes
    Implements System.IDisposable

    Private _List As New List(Of TMyAttribute)
    Public Sub New()
        Init()
    End Sub
    Private Sub Init()
        _List.Clear()
        _List.Add(New TMyAttribute("BINARY"))
        _List.Add(New TMyAttribute("UNSIGNED"))
        _List.Add(New TMyAttribute("UNSIGNED ZEROFILL"))
        _List.Add(New TMyAttribute("ON UPDATE CURRENT_TIMESTAMP"))
    End Sub
    Public ReadOnly Property Count() As Integer
        Get
            Return _List.Count
        End Get
    End Property
    Default Public ReadOnly Property Items(ByVal Index As Integer) As TMyAttribute
        Get
            Return _List(Index)
        End Get
    End Property

    Private disposedValue As Boolean = False        ' 重複する呼び出しを検出するには

    ' IDisposable
    Protected Overridable Sub Dispose(ByVal disposing As Boolean)
        If Not Me.disposedValue Then
            If disposing Then
                ' TODO: 他の状態を解放します (マネージ オブジェクト)。
            End If
            _List.Clear()
            _List = Nothing

            ' TODO: ユーザー独自の状態を解放します (アンマネージ オブジェクト)。
            ' TODO: 大きなフィールドを null に設定します。
        End If
        Me.disposedValue = True
    End Sub

#Region " IDisposable Support "
    ' このコードは、破棄可能なパターンを正しく実装できるように Visual Basic によって追加されました。
    Public Sub Dispose() Implements IDisposable.Dispose
        ' このコードを変更しないでください。クリーンアップ コードを上の Dispose(ByVal disposing As Boolean) に記述します。
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
#End Region

End Class
